home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CSROT.z / CSROT
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSRRRROOOOTTTT((((3333FFFF))))                                                            CCCCSSSSRRRROOOOTTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSROT   - CSROT applies the complex Givens rotation
  10.  
  11.         (X)   ( C S)(X)
  12.         (Y) = (-S C)(Y)
  13.  
  14.      N times where for I = 0,...,N-1
  15.  
  16.         X = CX(1+I*INCX)
  17.         Y = CY(1+I*INCY)
  18.  
  19.  
  20. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  21.       SUBROUTINE CSROT(N,CX,INCX,CY,INCY,C,S)
  22.  
  23. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  24.      Argument Description
  25.  
  26.      NNNN (integer)  number of elements in each vector
  27.  
  28.      CCCCXXXX (complex array)  beginning of one vector
  29.  
  30.      IIIINNNNCCCCXXXX (integer)  memory spacing of successive elements
  31.         of vector CX
  32.  
  33.      CCCCYYYY (complex array)  beginning of the other vector
  34.  
  35.      IIIINNNNCCCCYYYY (integer)  memory spacing of successive elements
  36.         of vector CY
  37.  
  38.      CCCC (real)  cosine term of the rotation
  39.  
  40.      SSSS (real)  sine term of the rotation.
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.